home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / jpl.arc / ART.JPL next >
Encoding:
Text File  |  1990-07-05  |  786 b   |  51 lines
  1. { JPL Executor ART program                    }
  2. { Copyright (C) 1988,89 Logiciels JPsoft Enr. }
  3.  
  4. { Create two ariable of type integer }
  5.  
  6. DefInt ( _Y )
  7. DefInt ( _X )
  8.  
  9.  
  10. { Show the window at constant _MAX (maximun size) }
  11.  
  12. ShowWindow ( _MAX )
  13.  
  14.  
  15. { initialise the variables }
  16.  
  17. #Y = 360
  18. #X = -10
  19.  
  20.  
  21. { set the color of pen drawing to green }
  22.  
  23. SetColor ( 2 )
  24.  
  25.  
  26. { start the for loop, _I is use has variable for looping }
  27. { _I will bee incrimented when it hit Next()             }
  28.  
  29. For ( 10 , 29)
  30.   
  31.    {*** _X = _X + _I ***}
  32.  
  33.    Add ( _X ,  _I  )
  34.  
  35.  
  36.  
  37.    {*** _Y = _Y - _I ***}
  38.  
  39.    Sub ( _Y ,  _I )
  40.    
  41.    {*** Draw the ellipse ***}
  42.  
  43.    Ellipse ( #X , 10 , #Y , 250 )
  44.  
  45. { _I = _I + 1 and loop }
  46. Next ()
  47.  
  48.  
  49.  
  50. { you need this to end the program }
  51. End ()